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FROM ACE 


News and Reviews 
by Mike Dunn, Co-Editor 

The last meeting of ACE was exciting in that we had a comparison 
of the Amiga vs the Atari ST . A local Amiga dealer was kind enough 
to come and demonstrate their fine machine. Very impressive, but for 
more than twice the price of the ST, not that much different. It was 
interesting to see the famous bouncing ball on both the machines. The 
main difference seemed to be the multitasking and animation of the 
Amiga, but I think “Power without the price’’ won the day. I do not have 
an ST, but may get one someday. I find the 8-bit Ataris powerful enough 
for my needs. Remember our Dec. meeting features our annual swap 
meet with proceeds to our local science museum, WISIEC: 

The big club news is that we have just received our modem from 
U.S. Robotics , the 300/1200/2400 Courier. They have a very special 
deal for bulletin boards of clubs such as ours to buy one at a very low 
price. We are also setting up a 10 Meg Hard Disk, and hope to be 
operatiorial soon. Larry Gold, Vice Pres and SYSOP will tell more. 

We have some new disks for the library, a new line of old and new 
programs for the new Atari 8-bit owner. Two are now almost ready, 
each on a double sided disk for only $10. incidentally, a double-sided 
disk means that each side of the disk is filled with programs, and you 
turn the disk over to use the other side. It does not require a special 
drive; you do get twice as much for your money. These disks, called 
The Essential ACE disks will be offered to new members, but anyone 
may order them. They include many utilities by your ACE favorites 
including Stan Ockers, Dale Lutz, Paul Freeman, Bob Floyd (of SPACE), 
Sydney Brown and from our U.K. friends, Page 6 and the U.K. Atari Club 
Monitor, and others. 

Essential ACE Disk One: 

Side 1: The complete DOS 2.5, the patch to make it memory 
resident in an XL, the Translator file to run old Atari programs on a XL 
or XE, several different disk and cassette copy programs, including 
XECOPY (allows you to copy an entire disk with a XE with one pass), 
and a very nice, simple disk directory and label maker program from our 
Pres., Dick Barkley. 

Side 2: MACH DOS with documentation, a disasmbler, a charactor 
generator, a PMHelper generator, a sector editor, a renumber program 
and similiar additional utlities. 

Essential ACE Disk Two: 

Side 1: A modified DOS 2.0 called 2.6f, that has several very nice 
features, and various printer utilities. Included is Pictrix, in a compiled 
version by Paul Freeman, a program that allows you to load and 
interchange as well a print out pictures from MicroPainter, Atari Touch 
Tablet, etc. From Bob Floyd comes NiceList in compiled versions for 
several printers plus the source code to modify, a very nice program 
to print out the funny control charactors to your printer, a MX80 graphics 
dump and a disk label program. 

Side 2: Has DOS 2.5, AMODEM 7.1, the newest and best public 
domain modem program, drivers for Atari and MPP modems, complete 
documention, 40 and 80 column versions of Stan Ocker's TinyText, and 
his Label program. 

We have also just received a set of 4 ACTION! Utility Disks and 1 
ACTION! Game disk from NovAtari club of Virginia, a great collection 
of programs including a Pseudo-Assembler, a Public Domain Run-time 


generator, a program to analyzes your program to see what run-time : 


modules you need, and many other useful things. The disks are 
documented well, and until we organize them and put them in our library, 
for this issue, you can get the 4 Utility disks for only $20 (2 double- 
sided disks. Highly recommended for intermediate to advanced ACTION! 
programmers. 

We have just received the Print Shop Graphics Library -3 from 
Broderbund, which includes 120 new graphics for christmas, myth and 
fantasy, seasons, animals, international symbols, animals, an eye chart, 
etc. Recently, my daughter who has never seen PrintShop and one of 
her friends needed to make some posters and I suggested using this 
program. Without looking at the manual, they were able to produce some 
great looking posters and have a blast doing it. If you have a graphic 
printer, you are missing a great deal if you don't get this program for 
christmas to at least make some christmas cards (get Graphics #3 also). 
It is fun and so easy that even an adult can do it! 

If you are interested in PrintShop graphics, several Atari User 
Groups have gotten together and are putting together disks for $10 
each. If you are interested, send me your best efforts, and I'll send you 
a disk full when it is completed and then trade with the other groups. 





One of the good friends of the Atari world, Gary Furr the designer 
of Atari Writer and the developer of the printer drivers for this fine word 
processor is now alone and marketing the various drivers. Because of 
the low demand, probably mainly because people do not know of them, 
Gary is getting discouraged and is thinking of stopping his support. If 
you have the AtariWriter and want it to work the best for your printer, 
send him only $10, and your printer will really reach it's capabilities. 
Gary was a great supporter of the user groups in the ''old"' Atari 
company, going out of his way many times to help us. He deserves our 
support. Rembember, only $10 for almost any printer; let him know 
which one you want and that ACE sent you. (Gary Furr, POB 1330, Mt. 
View, CA 94042-1330). 

In the last issue, the excellent programs from England, Sector and 
Computer Aided design were from the U.K. Atari Club as the listing 
indicated, not Page 6. Sorry for the mixup. 


CODE BLOCKS 


Action! Code Block Generator 
(by Jim Patchell; reprint: SBACE, Sept., 1985) 

For those who don't know, code blocks are a way of putting 
machine language programs into your Action! programs. They are also 
a nice way to add efficient library functions to your Action! programs. 
In fact, the Action! Run Time Library is noting but a collection of code 
blocks which perform various functions. A good example of what a code 
block is is the BYTE FUNC ConCat at the top of the program listing. All 
the hex numbers surrounded by the [ ] characters are a code block. the 
Action! Compiler converts these numbers directly into binary code and 
puts them into the computer. The special wáy of defining the function 
allows us to call these code blocks from our Action! programs. 

In the past | have made smaller functions which I could call, such 
as the function BYTE FUNC hi, and these are very easy to enter in by 
hand. But the big string handling functions were first written and tested 
with an assembler and debugger. After they worked, I took the assembly 
listing and entered by hand the object portion of the listing. Tedious City 
There had to be a better way! 

| wrote this program for doing this job. The program requires a 
standard binary saved object file. It takes that file and starts outputting 
a series of code blocks until it is done. There are parts of this program 
which actually do nothing. There is a section of code which tries to figure 
out how long the code is, but I find that some of the files AMAC 
generates do not have the proper header, so this information is not used 
in the part of the program which makes the blocks. If you are using 
AMAC, you may have some extra stuff tagged onto the end of the code 
block, so use your Action! editor and your assembly listing to get rid 
of the extra stuff. Now all you have to do is just define your PROC or 
FUNC and you will have a new library function you can call. 

By the way, only assemble one routine at a time. If you have a whole 
bunch in one file, you will only get one big bunch of codeblocks. This 
program cannot separate out seperate procedures. 

Also, if you wish to do less typing, BYTE FUNC SubPos and DelSub 
are not used, but you may want them anyway. Just be careful not to 
make any mistakes when typing in a code block. 
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DISK DRIVES 


(by Bill Petry; reprint: RAG BAG, June, 1985) 

Like most ''intelligent'' peripherals (printers and the 850 interface), 
Atari disk drives contain a 6507 microprocessor (MPU), a 6532 
Peripheral Interface Adaptor or PIA, (due to the 6507's lack of direct 
connections), an Operating System in Read Only Memory (ROM), and 
alittle Random Access Memor (RAM) to serve sector buffer and scratch 
pad needs. These process all commands and control data flow to and 
from the computer. 

What sets the disk drive apart from other peripherals is the Floppy 
Disk Controller (FDC) chip. The FDC controls data to and from the 
diskette through the Read/Write Erase Head. 

The R/W Head is ''stepped'' from the outer track O to the innermost 
track 39 by the Stepper Motor which is controlled by the MPU through 
the PIA. The head is moved a step at a time in or out to align it with 
the currently desired track. 

The Drive (or Spindle) motor spins the diskette at a speed of 288 
rpm. It has two states: On and Off. It is controlled by the MPUsthrough 
the PIA. 

Initialization on the 810 goes something like this: On power-up the 
MPU does a JMP (GOTO) to the address contained in the last two bytes 
of the program in the ROM chip. This starts the program execution and 
does the following: a) turns on the drive motor; b) positions the head 
to track 0; c) waits for a command from the computer, or after 7 seconds 
steps in to track 39 and turns off the drive motor. This command could 
be either the loading of a boot program or DOS. But the computer must 
send the command first (the Archiver Chip excluded). 

There are five valid commands for the stock 810 drive: Format disk, 
Read sector, Write sector, Sector status, and Put byte (no verify). The 
1050 drive has an additional command for the Medium Density format. 

Enhanced drives (Happy and Archiver) and the un-released “ʻE” 
version of the 810 ROM support other commands. The E ROM permits 
downloading of user programs. The Archiver Chip supports 16 
commands including Set Drive shutdown time, Open chip, Read sector 
address, Write CRC (Cyclic Redundency Checksum), and Download, as 
well as the original five. 

The U.S. (Ultra Speed) Doubler ROM for the 1050 supports true 
double density (256 bytes/sector), the original five commands, plus 
ultra-speed sector skewing, 35/40 tracks per inch spacing and a few 
others. 

The 810 drive has a 1771 FDC and can support only single density 
format. The 1050 drive contains a 2793 FDC which can support single 
and medium density (128 bytes/sector and either 18 or 26 sectors per 
track), and true double density (256 bytes/sector at 18 sectors per 
track). 

Percom drives have a 6809 MPU, 6850 PIA and a 1795 FDC. The 
single Rana | examined contained a 8031 Control oriented MPU with 
RAM and UO. an 8155 HMOS RAM UO port timer, and a 2797 FDC. 

A more detailed account of each part of the drive's electronic and 
mechanical units is provided in the 810 and 1050 Disk Drive Field Service 
Manuals. The Atari 810 Disk Peripheral Device Description (15-DEC-80) 
provides a bit more insight. 

The 810 drive contains 4 separate printed circuit (PC) boards: a 
Power board in the back; an analog board on top of the drive mechanism 
itself; and a two-parts-in-one side board. 

The Power supply board provides for rectified 5 and 12 volts for 
motors, etc., and motor speed control circuitry. You can adjust the rpm 
(with the proper program) y turning the screw on the green 
potentiometer (or the flat white one to the rear left on the older models). 
The improved power boards provide very stable speed control. 

The Analog board (missing on the early models) provides better 
read/write amplification and cleaner signals. 

The side board assembly contains the actual ''controller'' (like the 
Apple controller card), with the MPU, ROM, RAM, PIA and FDC. The 
small board inside the Radio Frequency (RF) shield is the external data 
separator. 

The FDC encodes data on the diskette serially (one bit at a time) 
in FM (not stereo though!) with a reference 4-microsecond clock pulse 
with each bit written. 

The letter “R” ($52, #82) would be something like the following: 

CO C1 CO C1 CO CO C1 CO 

The C's indicate the clock pulses (which actually are recorded like 
the 1's). The “R” (#82, $52) is 01010010 in binary. 

During a diskette read the signal is received from the diskete and 
the data must then be separated from the clock pulses to make useable 
data bytes. The 1771 FDC contains an internal data separator, but due 
to timing tolerances with the 5.25'' diskettes on the inner tracks, it is 
inadequate to readily handle the bit shifting. The result is the familiar 
“Time Out'' and its associated irks. The external separator compensates 
for the shifting, keeping the current bits properly ''windowed'' and the 
flow of data smoother. | 

The 1050 works basically the same, although there is only one PC 
board with all the electronic components on it. The medium density is 
recorded slightly different electronically on the diskette also. 

The above is a sketch of the ... Disk Drive SIG [of the Redwood 
Atari Group]. ... 


FLEA MARKET 


This year's annual pre-Christmas Flea Market to benefit WISTEC will 
be different than in previous years. First of all, we don't ask you to 
donate 10% of whatever money you receive for items you sell. This year 
we ask only a flat donation of $5.00 per person (unless you're only a 
buyer — buyers get in free). 

So if you have some hardware you're no longer using, bring it and 
see if someone wants it. If you have some original software with original 
documentation you're no longer using, someone else might want to buy 
it. Books, magazines and any computer-related item is welcome. 

Contact Larry Gold if you want to sell any items and give him the 
donation for WISTEC. You will receive a receipt from WISTEC for your 
donation (you don't need to limit it to $5.00 if you choose to give more 


~~ FURTRADER 


ROBBED YOUR PACK HORSES OF SOME 
OF YOUR FURS." 

7148 GET Hi,Y 

7158 ? "g" 

7200 IF IMT(RND(1)X125))5 THEN 7258 
7218 M-M-INT(RND C1) CM/2)) 

7228 POSITION 8,9:? " SOME ROBBERS HAV 
E JUST ROBBED YOUR PACK HORSES OF 
SOME OF YOUR MONEY." 

7230 GET #i,Y:7 “K 

7258 GOTO 25 

88800 ? “YOU DIED DUE TO A LACK OF REST 
.":GÜTO 8038 | 

8820 ? "BAD LUCK.YOU STARVED TO DEATH. 
8030 ? :? "YOU HAD ";F;" PACK HORSES O 
F FOOD AND WATER LEFT." 

3060 ? "YOU COULD HAVE SURVIVED ";D;" 
DAYS WITHOUT REST." 

6888 ? “YOU COULD HAVE SURVIVED ";H;" 
DAYS WITHOUT FOOD/HATER." 

8188 ? :? "IN YOUR WILL YOU LEFT :" 
8115 H-Mt(HFKHFP) + CCFKCFP) € COFKOFP) * ER 


FERFP) 

8118 ? :? "A TOTAL OF &;M;" NET" 
8158 ? 17 "C ";HF;" HAGGIS FURS 3" 
8168 ? :? "( ";CF;" COYOTE FURS J" 
8178 ? :? "( ";0F;" OCELOT FURS 3" 
8188 ? :7 "( ";RF;" RABBIT FURS An 


8228 GET fti, Y 

8218 7 "KTO PLAY AGAIN PRESS ANY KEY." 
:GET fi, Y:GOTO 6 

3888 POSITION 0,17:7 "MT 
MGE KER: GET 181, Y:60T 


ü 25 

3828 POSITION 8,17:? ' : : 
a eee; GET H1,Y:60T 

0 25 


3848 POSITION 8,17:? “Ee 
FELG TE: GET Hi,Y:60T 
0 25 

18888 POKE 710,55:50UMD @,36,36,36:FOR 


3 J-8 TO 188:NHEXT J:POKE 710,148:50UND 


8,8,8,8:TRAP i18888:GOT0 25 


ORANGES 


The Saga of ORANGES 
by Dale Lutz 

In June, 1984, I had the great idea to do an article comparing several 
Atari high level languages. What better way to do this, | thought, than 
writing a simple game in each of the languages, and then pointing out 
the important differences between each of them. Well, the game I chose 
to write is entitled ‘ORANGES’, and it is your very simple ‘things are 
falling so catch them' type of game. I wrote the game first in BASIC, 
then in ACTION, then in FORTH, and finally in ACE C. Before I start in 
with the details of each of the languages, I should first give an overview 
of the game itself. 

The player's task in ORANGES is simple. An orange (actually a 
graphics 5 pixel) is falling and you position your basket below it to catch 
it and earn points. If you miss 3 oranges, the game ends. A high score 
tally is kept and displayed on a Graphics 1 text window on the bottom 
of the screen. So basically all the program does is 1) set up the screen, 
2) wait for START to be pressed, and then 3) drop oranges until 3 are 
missed, and repeat the whole process. 

| first wrote the program in BASIC because at the time it was the 
language I knew the best, and because it is interactive and interpretive, 
meaning you can make changes to the code on the fly without needing 
to recompile. All the other languages require a recompiling process that 
takes time and can be a bother. Recompiling ACTION! programs is the 
least bother because the compiler is built into the cartridge and you can 
have the source code in memory at the same time as the compiled 
version is running. FORTH is quite a bother to recompile because first 
you have to use the editor to edit a 'SCREEN' (FORTH has no notion 
of a source file — you must put your code onto blocks on the disk called 
SCREENS, and then load these screens back in to have them compiled), 
and then LOAD the screens back in. Of course, as the screens load in, 
they are compiled and all the procedure names (called VERBs in FORTH 
lingo) are added to the dictionary (the library of available FORTH verbs). 
The problem is that if you are loading the program a second or third time, 
you keep adding more and more identical verbs to the dictionary, all the 
time getting the message 'ORANGES is not unique' message for each 
verb that was already there. To recompile C is also a bit of a hassle 
because you have to first load in some kind of editor to change your 
source file, then load in the compiler to compile it, and finally load in 
the linker to link your source file to the routines it uses (like DRAWTO 
etc.) With the Ramdisk on a 130XE this isn't so bad, and I understand 
a new version of C that makes use of the XEs extra memory is available 
too, but with an old 800 it is a very slow process to recompile. 

After writing the program in BASIC I translated it to ACTION. Going 
from BASIC to ACTION was a bit tricky as | changed all the subroutines 
in BASIC to PROCedures in ACTION!. Another noticeable change was 
that all the variables | used in BASIC had to be declared at the top of 
the ACTION program. At first | thought that was a very dumb idea, but 
as | become more experienced of a programmer I find that not having 
to declare variables only leads to bad practices and big troubles in 
debugging. However, it was quite straightforward going from BASIC 
to ACTION, and the code produced by both is quite similar. In my 
opinion, the ACTION code is the easiest of all four to read because of 
its nice WHILE condition DOOD structures, and its familiar BASIC-like 
commands. ACTION has a nice shorthand for adding a value to a variable 
that is a bit different. In BASIC you have, say, BASKETS = BASKETS + 3, 
in ACTION! you only need to write BASKETS = = +3. 

Next I translated the program into FORTH. If you look at the FORTH 
listing, you will notice two things. The first is that it hardly takes any 
room at all, the second is that you cannot figure out what it is doing. 
The constant and variable declarations are straightforward enough, but 
from then on it gets crazy. FORTH verb definitions always start with 
a colon, then the verb name then what it is to do, terminated with a 
semicolon. Understanding FORTH requires you first to grasp the idea 
of postfix notation. FORTH uses a stack, and all arithmetic you perform 
is done on this stack. Examples are the best way of illustrating: Suppose 
you want to add the numbers 3 and 4. In FORTH you would type 3 4 
+. This way of expressing things is used by many scientific calculators, 
and has the advantage that parantheses are not needed. Many people 
who are used to it swear by it, but | feel that for the most part it is 
unnatural to us, and consequently hard to read. Anyway, the effect this 
has on your FORTH code is that everything is backwards to what you 
would think. | will give one more example: Suppose in BASIC you had 
this line: IF J=3 THEN BASKETS - BASKETS-1. In FORTH, this 
becomes: J Q 3 = IF BASKETS (9 1 - BASKETS ! THEN. The (9 gets 
the value of the variable, and the ! stores a value in the variable. 


My biggest complaint about FORTH is the method for storing your 
code. Because of this screen oriented source storage, inserting a couple 
of lines in the middle of something is not a trivial job. If FORTH would 
use normal files for its source, I think one could grow to like it because 
the code is so compact. But as it stands, it is a nightmare to program 
in. I translated the ACTION version directly to FORTH, and it got it 
working quite fast. But if | were just making the program up as | was 
going, it would have been impossible because I wouldn't have been able 
to easily add chunks of code I forgot about as I was trying to debug. 

This past spring I translated ORANGES into C. Again | went from 
the ACTION! version to C. In fact, | used the same source file and only 
modified it in the places where C and ACTION differed. C is not a bad 
language either — the biggest drawback is the editor/compiler/linker 
switching all the time, however, this is only a fault of our old 8 bit 
machines. C will be of the most interest to those of you who are going 
for the new STs. I will pass on a few things I picked up while doing my 
translation. First and most important, all C reserved words (like IF, etc.) 
MUST BE IN LOWER CASE. You can name your functions in upper case 
if you want, but any C words must be in lower case. ACTION is forgiving 
about cases, but C is not. Another big difference is that each C 
statement must be terminated with a semicolon. Note that a statement 
is not the following: while (Strig(O) = = 1). If a semicolon is after this, 
the code you want executed while the condition is true will not be 
executed. Also notable about C is that it makes a difference between 
its assignment operators, and its test for equality. To assign a value, 
you do as in BASIC (baskets = 0), or whatever. However, to test for 
equality, you type baskets = =O. This is because in C you may assign 
and test for equality on the same line. Also C has this notion of a code 
block. A code block is equivalent to the code between the DO and OD 
in ACTION. Each procedure is considered a code block. Code blocks are 
normally set off in C by opening and closing braces, but since on our 
8 bit machines we don't have these, we must use the $( and $) to set 
off code blocks. Make a note that it is $( and NOT ($ — I had them 
switched for while and couldn't figure out why it wouldn't compile. 

The final point | want to raise is the running times of the completed 
programs. The BASIC program runs the most slowly, as one might 
expect since BASIC is an interpretted language. Even with no delay built 
in, the BASIC program is so slow that playing it is no challenge. The 
FORTH and C programs have very similar running speeds. A slight delay 
was put in both to make them playable. The ACTION! version runs the 
fastest of all. Even with a large delay loop built in, the program is very 
challenging and almost too fast. 

Those of you so inclined should be able to learn quite a bit while 
studying the listings of the program in the different languages. | sure 
learned alot while programming them. If you are really interested, you 
might want to consider getting FORTH and C for yourself. | beleive that 
ANTIC sells a documented version of FORTH, and ACE C is available 
from the ACE library for a minimal charge. (Public domain versions of 
ACE-C and fig-FORTH from S.P.A.C.E, with no documentation for $10 
each from ACE, or the super XE-C from Ralph Walden for $35). The 
130XE C is available from Ralph Walden, and is recommended for those 
with an XE. A great book for learning FORTH is Leo Brodie's 'Starting 
FORTH". I can't say enough about how good this book is — if only all 
computer manuals were this good. A book that can be tough sledding 
but will tell you all about the C language syntax and features is ''The 
C Programming Language” by Kernighan and Richie. It is the final word 
on any question one may have about C. 

In closing, | want to encourage those of you who are tired of BASIC, 
and are looking for anew challenge, to get one of these languages, and 
learn it. Even if you don't have any practical use for it, it is alot of fun 
to learn a new language, and the experience you will gain will help you 
alot in the future. This summer I had to learn FORTRAN where I worked, 
and my experience with these languages really helped me. 

Ralph Waldon's 130XE-C is available with extensive documentation 
for $35 from him a 1821 Jefferson, Eugene, OR 97402. Specify single 
or double density. According to some C experts I know, it is better than 
any available for the IBM-PC, etc. [ -ed.] 


SWAP MEET 
AMAZON PARK 





CALENDAR 


; Calendar Generator/Date Handler 


; By Pale Lutz 
; July 31, 1985 


; To custiMize the sizes of the calend 
ars, 

; you should change the variables 

; 'depth' and 'width' in the PRüCedure 


Calendar. Additionally, you may wis 


to modify the printer setup strings 
to use larger printing or to work on 


tan mn SF ren 


; à non-Epson printer. 
; I like to use the large print, large 


style calendar for keeping track of 
appointments, and the small print, 
small style calendars for in the 
Pocket reference, 


w tws w `. 


The BYTE FUNCTION Getthoice is a 
‘Print Shop’ type menu easily usable 


`. `. 


in other programs. It can be moved 
easily to other programs. It is 
documented within its body below, 


se we `. 


INCLUDE '"D8:5Y5.A5CT" 
DEFINE yvear="1985", 
month="@i", 
day-"Bi', 
vbar="156", ; '| on the screen 


hbar="157"  : '- on the screen 
sybar=""|", ;used when testing 
:»hbbarz"'-" H 11 18 Di 
BYTE ARRAY daum-[88 31 89 Fi 38 Ti 38 
31 31 38 31 38 311, 


the following two byte arrays are th 


m we 


Printer setup. The first byte is th 


ro `. 


length of the setup string. The nex 


pf mm 


two reset the printer, then the pape 


") re 


out sensor is disabled (27 '8), 
unidirectional printing started (27 


"s mn 


'Y i), 

; for the small, superscript mode is 

; started (27 '5 83, 

> Compressed mode entered (15), 

; and the line spacing set to 7 or 

; 4 72nds of an inch (27 65 [7 or 41). 


large-{i1 27 '8 27 '8 27 'U 1 15 
27 65 7 1, 

sMall-[i4 27 
'5 8 15 27 65 4 1, 


CE 27 '8 27 CH i 27 


sizem-(8@ 7855344697 8 81 
route=[2 'P ':]1 
CARP ARRAY namem(i2) , named(6) , menu lia) 


CARD 
BYTE 


yy 
nm, dd, doomsday, weekday, dayflag 


PROC FillStr(BYTE ARRAY str) 


BYTE temp 

IF str(8)-1 THEM 
temp=str t1) 
str(2)-tenp 
str(ij-'8 
str (8)-2 

FI 


RETURN 


PROC FancyGet(BYTE ARRAY date BYTE x,y 
elen? 


;This procedure will allow fancy input 


;0f a date. 

;1t intercepts all input and 

;Will take off as soon as either 

;the box is full or RETURN is pressed. 


La default date should be in 'date' 
"when this routine is called. 

ithe x,g variables tell the position 
;0n the screen for the input to occur 


BYTE numlen,a, key 


Position(x,y) 
FOR azi to date(8) 
BD 


DALE LUTZ 


Put {date (a3) 
OD 
Close (z) 
Opents,"K:",4,8) 
numlen-i 
key-8 
Position(xtnumlen-1,yJ 
Put (38) 
Put tid 
WHILE keu(>155 AND numlen<lenti 
po 
key-GetP (3) 
IF key?)-'8 AND key4-'9 THEN 
date(numlen)=key 
Put (key) 
numlen==+1 
ELSEIF (key-126 OR key=3G OR key="+) 
AND numlen?i THEM 
nuMIen---i 
Put (38) 
ELSEIF key-31 OR keu-'X* THEN 
numlen==+1 
Put(313 
FI 
Op 
RETURN 


PROC DateGet (O 
BYTE ARRAY yys (5), mms C33, dds C3) 


Strt(tyg, uus) 

StrB (Mn, MMS) 

Fillstr (mms) 

StrB(dd,dds) 

Fill5tr(dds) 

Position(14,17) 

Print("YYYY MM) 

IF dayflag-i THEN 
Print(" DP") 

FI 

FancyGet(yys,14,13,4) 

FancyGet (mms, 28,13,2) 

IF dayflag-i THEN 
FancyGet(dds,24,13,2) 

FI 

yysVall (uus? 

mm-ValB (mms) 

IF dayflag=1 THEN 
dd=ValB(dds) 

ELSE dd-i 

FI 

PutE O 

RETURN 


BYTE FUNC DoomF ind() 


CALENDAR 


;This function returns the day of the IF theday(8 THEN spc-" 
theday==+7 Poke (spc, indent) 
week which is the ‘doomsday’ for a FI Position(3,18) 
Particular year. The convention final-theday PutE O 
;followed is that 8 means Sunday, RETURN (final) FÜR azi TO number 
ji is Monday, and so on.. po 
PROC TeliBay) Printtspc) 
BYTE theday, twelves,offset,base,leftov BYTE ch PrintE (menu CaJJ 
er, pü op 
leaps, remainder, doomsday Putti125) Closet3) 
Positiont3,8) üpent3,"K:",4,8) 
base=3 ;year 1388 Wednesday is dooms  PutE(O key-8 
day PrintE(" ENTER THE DATE") — Oldchoice-number 
leftover=yy-1988 PrintE(" IÉIz2zz22z2zzzzzzz00 Choice-i 
twelves-leftover/12 DateGet() WHILE key 155 DO 


remainder-leftover MOD 12 doomsday-Doomf ind OO IF key-28 OR key-'- THEN 


leaps-remainder/4 veekday=Findbaytdoomsday) ChoiCe--- 
offset-leapstremainderttwelves PutE () ELSEIF key=29 OR key-'- THEN 
offset-offset MOD 7 . PutEO Choice==+1 
doomsday=(offsettbase) MOD 7 ;the do pur ELSEIF key(-'9 AND key) '8 THEN 
omsday is found Print("The day of the week is==)") choice-key-48 
PrintE (named (weekday) } FI 
RETURN (doomsday) close (3) IF choice-8 THEN choice-number 
üpentz,"K:",4,8) ELSEIF choice>number THEN choice-i 
BYTE FUNC FindDay{BYTE doomsday) PutE () 
Printet" Press space for anothe FI 
BYTE doomdate, final, fake r,") IF oldchoiceO choice THEN 
Print” RETURN to exit --2') Position(3,3toldchoice) 
INT offset,theday Ch-Getb (3) PutE (3 
UNTIL ch-155 Printispc3 
IF (yy MOD 4) = B THEN üp PrintE (menu Coldchoice)) 
daym(2)=23 RETURN Position(3,3+choice) 
ELSE PutE (3 
daym(2) -28 BYTE FUNC GetChoice(BYTE number, indent Printtspc) 
FI | ) SCopu(temp,menu(choice)) 
IF wi THEN FOR bzi TO temp(8) 
doomdate = 31 ;January, normal yea ; Global CARD ARRAY menu must hold gi 
r ; the addresses of the options. Then ere ec 
IF (yy MOD 4) = @ THEN ; this function is called, allowing wi 
doomdate=25 ;January, leap year  ; the user to use the arrow keys or oldchoice-choice 
FI ; the numbers to choose from the menu. FI 
ELSEIF mm=2 THEN key=Getb(3) 
doomdate=daym(2) ;Februry ; BYTE number holds the number of op 
ELSEIF (mm MOD 2) = @ THEN ; options in the menu, while ‘indent: RETURN (choice) 
doomdate-me ;even months ; tells the program how far to space 
ELSEIF daym(me)=31 THEM ; over before printing the options, PROC Calendar O 
dooMdate-MMt4 ;odd long months ; The users choice is then returned. 
ELSE ; Note that this routine can be reused BYTE Ch, doomsday, weekday, a,b, width, 
doomdate-me-4 ;short odd months wholewidth,spaces,Maxday,block, 
FI ; several times in a single program depth, numnonth, holdun,nunprinted, 
fake-dd*42 ;required to avoid negati ; by simply changing the parameters maxprint,op 
ves ; before calling it. 
offset=(fake-doomdate) MOD 7 ;find d CARD setup 
ifference BYTE ARRAY temp 30) 


BYTE ARRAY sday(52, 
max-I8 4 Z ið 61 


;froM dooMdate to real day BYTE a,b,key,choice,oldchoice 


CARD spc 
theday=(doomsdaytoffset) MOD 7 


Put(125) 


PutE (3 
PutE O 
PutE (3 


PrintE(" Calendar Generatio 


n") 


PutE C 
PrintEC' 
menuti)="i, 


Subsystem) 
Large Style, Small Print 


menut2)="2, Large Style, Large Print 


menuti)-":I, Small Style, Small Print 


menu(4)-"4,. Small Style, Large Print 
ch-GetChoice (4, 7} 
IF ch-i OR ch-2 THEM 
width-i8 
depth-4 
ELSE 
width-2 
depth=8 
FI 
wholewidth-7E(widtht*i)*i 
nmaxprint-maxí(ch) 
IF ch-1 OR ch-3 THEN 
setup=small 
ELSE 
setup-large 
FI 
Put (125) 
PutE O 
PutE t1 
PutE (3 


PrintE(" Calendar Generatio 


n" 


PutE OO 
Printer" 
PutE OO 
Printet 


Subsystem") 


Enter the Starting D 


ate") 


PrintE(C' 


S=='*} 


DateGett) 

PutE (3 

PutE U 

Printi" 

Put (383 

Put (38) 

nummonth-InputsB Gd 

nummonth==-1 

IF nummonthtmm)17 THEN 
numMonth=127-mm 

FI 

Close(2) 

üpent2,route,8,8) 


How Many Months==)81") 


CALENDAR 


Printb(2,setup) 

numprinted-8 

op-ch 

hol damn 

FOR ma-holdma TO hoidMwtnummonth DO 
doomsday-DoomF ind 
week day-FindDay (doomsday) 
FOR azi TO (wholewidth-(sizem(mm)* 


6221/2 


po 
Putb (2,32) 
0D 
Printd (Z,nanem Cis) ) 
PrintD(2,", '') 
PrintCDE(C2,u99) 
PutbE (2) 
IF op-i OR op-2 THEN 
FOR a-8 TO 6 DO 
spaces-iwidth-2)/2 
FOR b-1 TO spaces DO 
Putb (2,32) 
DD 
SCopyS(sday,named(a2,1,3) 
Printbt2,sday) 
FOR bzi TO width-2-spaces DO 
PutD (2, 323 
op 
Op 
PutDE (2) 
FI 
FOR ch-1 TO (width+13%*7+1 DO 
Put? (2,hbar) 
op 
PutbE (2) 
block-1 
maxday-@ 
WHILE Maxday(daym(mm) tweekday DO 
PutD(Z,ubar) 
FOR ch-1 TO 7 DO 
IF block? weekday AND block<=d 


aym(wmitweekday THEN 


StrBiblock-weekday, sday) 
PrintD(2,5day) 
FOR b-1 TO width-sday(8) DO 
Put (2, 12) 
op 
ELSE 
FOR bzi TO width DO 
Putb (2,312) 
Op 
FI 
PutD(Z2,vubar) 
block--*1 
Op 
PutbE (2) 
FOR ch-1 TO depth DO 
FOR a-1 TO 7 DO 
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Putb(2,vbar) 
FOR bzi TO width DO 
PutbtZ,32) 
0b 
op 
PutD(Z,vbar) 
PutbE (23 
DB 
FOR ch-1 TO (width+1)%7+1 DO 
PutbP (Z,hbar? 
Op 
PutDE (22 
Maxday-Maxdayt7 
Op 
PutbE (23 
PutbE (2) 
PutbE (2) 
numprinted==+1 
IF numprinted-maxprint THEN 
Putb (2,12) 
nuMprinted-8 
FI 
op 
MA<ho I døm 
RETURN 


PROC Maing) 


BYTE ch 


namem(i)="January" 
namem(2)<"February" 
namem(3)-"March" 
namem(4)-"April" 
namem(5)-"May" 
namem(6)=" June" 
namem(7)=-"July" 
namem(8)-"August" 
namen(9) "September" 
namem(i8) "October" 
namem(1i)=-"November" 
namem(12)-"December" 


naMed(8) -"Sunday" 
naMed(1)-''Monday" 
naMed(2) -''Tuesday" 
naMed(1)-'Wednesday" 
named(4)="Thursday" 
naMed(5)-"Friday" 
named (6) -''Saturday" 


yy-year 
mm-month 
dd-day 
Poke (718,8) 
po 

Put(125) 


ORANGES BY 


8 REM ORANGES IM BASIC 

i REM BY DALE LUTZ 6/6/84 

18 BALLSTART=210: TONE=388: WAIT=—428 

28 LEFTOWE-12@:RIGHTONE-178 

38 SCREENSETUP-328: STARTGAME-368 

48 LEFT-11:RIGHT=7: DONN-39: SCREENWIBTH 

-?77:CATCHCHECK-238: GAMEQUER- 418 

68 GOSUB SCREENSETUP:GOSIB BALLSTART 
78 ST-STICK(CBJ 

75 IF PEFK(764) 0255 THEN GOSUB WAIT 

88 IF ST-LEFT THEN GOSUB LEFTOME 

38 IF ST-RIGHT THEM GOSUB RIGHTONE 

180 COLOR B:PLOT BALK,BALY:BALY-BALY+Ø 
,9:C0LOR 1:PLOT BALK, BALY 

119 IF BALY=DOMM THEM GOTO CATCHCHECK 

128 GOTO 78 

138 REM LEFTONE 

148 COLOR O:PLOT PLATE+1, DOWN: PLATE=PL 
ATE-1 

158 IF PLATE<2 THEN PLATE-78:PLOT 1,00 
HN:DRAHTO 3,DOHN:COLOR 2:PLOT 76,D0HN: 
DRAMTO 79,bOMM:RETURN 

168 COLOR Z:PLOT PLATE-1,DOMM:RETURN 
178 REM RIGHTOME 

188 COLOR 8:PLOT PLATE-1,DOMN:PLATE=PL 
ATE*1 

198 IF PLATE)78 THEM PLATE-2:PLOT 75,0 
OMM:DRAMTO 79,DO0HN:COLOR 2:PLOT 1,DOHMM 
:DRANTO 3, DOWN: RETURN 

288 COLOR 2;PLOT PLATE+1, DOWN: RETURN 
218 REM BALLSTART 

228 BALX-INT(RND CO) XSCREENHIDTH) #2: BAL 
Y-i:RETURN 

238 REM CATCHCHECK 

248 COLOR 8 

258 IF ABSCBALE-PLATE342 THEN CATCHES- 
CATCHES*1;COLOR 2:605UB TOME:GOTO 278 
268 BASKETS-BASKETS-1:50!ND 1,188,8,18 
"FOR A-i TO SØ:MEKT A:SOUND 1,8,8,8:IF 
BASKET5-8 THEM GOTO GAMEDVER 

278 PLOT BALK, DOMM:POKE 656,8:POKE 657 
,18:? CATCHES 

288 POKE 656,1:POKE 657,18:7 BASKETS 
298 GOSUB BALLSTART:GOTO 78 

i88 REM TONE 

318 SOUND 1,81,18,18:FÜR Azi TO 38:NEX 
T A SOUND 1,8,8,G:RETURN 

328 REM SCREENSETUP 

i38 GRAPHICS 5:A-PEEK (568) *2563PEEK C56 

13:POKE 752,1 

i48 IF PEEK(AI O66 THEN A-At1:60T0 348 


358 POKE A,7B:POKE A+T,6:POKE A+4,6:P0 
KE A+5,6:605UB STARTGAME : RETURN 

i68 REM STARTGAME 

i78 BASKETS-I:CATCHES-8:? CHR$(1252:PU 
KE 656,1:POKE 657,25:? "PRESS fire":PO 


KE 656,0:POKE 657,26:7 gorangeså 

375 SOUND 8,258,18,18:50UND 1,252,18,1 
8 

388 IF STRIG(8J-1 THEN POKE 711,(PEEK( 
711) *1)*(CPEEK (711) (255) :GOTO. 388 

385 SOUND 8,80,8,8:50UMD 1,8,8,0:POKE 7 
11,78 

398 PLATE-39:? CHRSC125) :POKE 656,8:P0 

KE 657,2:? "CATCHES 8":POKE 656,1:POKE 
657,2:? "baskets 3" 

488 POKE 657,38:POKE 656,8:7 “TERI "iH 

I:RETURN 


418 REM GAMEOUER 


412 POKE 656,1:POKE 657,18:? BASKETS 
415 FOR á-188 TO 288 STEP 10:50UND 1,4 
,18,18:F0R B-1 TO S8:NEXT B:NEXT a 


417 SOUND 1,258,12,18:F0R Azi TO 250:M 
EXT A:S0UND 8,8,0,8 


428 IF HI(CATCHES THEM HI-CATCHES 

425 ? #6; CHRSC125) :GOSUB STARTGAME:G0S 
UB BALLSTART:GOTO 78 

418 REM WAIT 

448 FOR A=1 TO 188:POKE 764,255 

458 IF PEEK(7642-255 THEN 458 

468 POKE 764,255:RETURN 


Op 
/* ORANGES IN C #7 
/® BY DALE LUTZ 858718 %/ 


Hdefine key 764 
Hdefine down 39 
Hdefine screen 77 
Hdefine left ii 
Hdefine right 7 


thar a,plate,balx,baly,st; 
int b,catches,baskets,hi:; 


Delay 
St 
int i; 
for (b-1;bi=3;++b) 
i-iti; 


$) 


Haití) 
St 
int i; 
forta-1;aí(-188; tta) 
Delay; 
poke (key,255); 
while (peekfkey)==255) 
i-itl; 


DALE LUTZ 


Poke(key,255) ; 
$) 


Tone (3 
st 
sound(i,81,18,182; 
for (a-1;31=30;+43) 
Delay; 
sound(1,8,8,8); 
$) 


Leftone() 
St 
colort8); 
Plotíplatetl1,down); 
--plate; 
if (plate<2} 
St 
plate-78; 
plotii,down); 
drawtot3, down); 
colort2); 
Plot(76,down) ; 
drawto(79, down): 
Si 
else 
St 
colort2); 
Plot(plate-1,down); 
$) 
$) 


Rightonet) 
St 
color (8); 
plotiplate-i,down): 
ttplate; 
if (plate?78) 
$t 
plate-2; 
Plott75, down); 
drawto (79, down) ; 
color {2}; 
Plotti, down); 
drawto (3, down) ; 
$) 
else 
St 
colori23; 
Plot(plateti, down); 
$3 
$3 


Ballstart (2 

$t 
balx-rndíscreen? *2; 
 baly-i; 





Catchcheck t 


colort8); 
if (Cabstbalx-plate}) (2) 
St 
tiratches; 
color (22; 
Tonei; 
$3 
else 
St 
--baskets; 
sound(1,188,8,18); 
for (a=1;a<=50;++3) 
Pelay 0; 
sound(i,8,8,8); 
$) 
plottbalx,down? ; 
poke (556,8); 
poke (657,18); 
printft('%d", catches); 
poke (656,13; 
poke (657,18); 
printf ("%d", baskets) ; 
Ballstart(; 


Startgame (3 


baskets-3i; 
ratches=Ø; 
color {8}; 
Plotti, down); 
drawto (79, down) ; 
printfC's f"; 
poket656,1); 
poke {657,253 ; 
printfi"PRESS fire"); 
poke (656,8) ; 
poke (657,251; 
printfCTTETDTIH 9; 
sound(8,258,18,18) ; 
50und(1,252,18,182; 
while (strig(8)--1) 
$t 

Delayt1; 

poke(711,peek(711)2 11); 
$) 
sound(8,8,8,83; 
sound(1,8,8,8); 
poke t7ii, 78); 
plate=39; 
printti"); 
poke (656,82; 
poke t657,2); 


SWAP MEET 


printf("CATCHES 8”); 
poket655,1); 
poket657,2); 
printfi"baskets 3"); 
poke 656,08); 

poke (657,38); 
printf En "3; 
printf("Zd'",hil; 


Screensetup i 


open(6,28,5,"5;'2; 

b-dpeek (568) ; 

poke (752,13; 

while (peekí(b)!-66) 
*tb; 

poketb,781; 

poketbti,b2;. 

poke(bt4,62; 

poke (bt5,6); 

Startgame 0) ; 


maint? 


hi-@; 


while (522) 


St 
Screensetup 0; 
Balistart(; 
while (baskets?8) 
St 
Delay(; 
if (peek(keyJ!-255) 
Wait; 
Delay O; 
St=stick (8) ; 
if (st--left) 
Leftonet); 
else 
if (st--right) 
Rightone (C; 
colora); 
plot(balx,baly); 
tta; 
if (21) 
$t 
++baly; 
3-8; 
$3 
color (1); 
plot(balx,baly3; 
if (baly--down) 
Catchcheck (3; 
5) /*end of basketsB8 X/ 


/* This gets executed when the game X/ 


/* is over (equivalent to the X/ 
/* GAMEOVER routine in BASIC) X/ 


forta-i188;a(-288; a-a*t18) 
St 
sound), a, 18. ið); 
for(st-1;st(-48;ttst) 

Delay 0; 

$) 
50Und(1,258,12,18); 

for(a-i1;a(-254; tta) 
pelaygO ; ` 

sound(i1,8,8,8); 

if (hifcatches) 
hi=catches; | 

51 /* infinite loop X/ 

Si | 


; ORANGES IM ACTION 
; BY DALE LUTZ 18/6/84 


: GLOBAL VARIABLES, ETC. 


BYTE a,plate,balx,baly,key-764,s5t 
CARD b,catches, baskets, hi 
DEFINE down="39", 
screenwidth="77", 
left="11", 
right="7" 


PROC Delay® 
FOR b-i TO 388 
po 
op 
RETURN 


PROC Hait) 
FOR a-i TO 188 
DO 
belay ed 
op 
key-255 
MHILE key-255 
DO 
. OD 
key-255 
RETURN 


PROC Tone Cd 


Sound(1,81,18,18) 
FOR a-1 TO 38 


AMAZON PARK 


DO 
Delay i 
op 
5ound(1,8,8,8) 
RETURN 


PROC Leftoned) 
Color-8 
Plot(plateti, down) 
plate==-1 
IF plate<2 THEM 

plate-78 
Plot(i,down) 
brawTo(3, down) 
Color-2 
Piott76, down) 
DrawTo (79, down) 
ELSE Color-2 
Plot{plate-i, down) 
FI 
RETURN 


PROC Rightone OQ 
_ Color-8 
Plottplate-i,down? 
plate--4i1 
IF plate?78 THEN 
plate-2 
Plott75,down3 
DrawTo (73, down) 
Color=2 
Plotti,down) 
DrawTotz,down) 
ELSE Color-2 
Plot{plateti, down) 
FI 
RETURN 


PROC Ballstart 2 
balx-Randíiscreenwidth)*2 
baly-i 

RETURN 


PROC Catchcheck © 
Color=8 
IF balx-plateí2 OR plate-balx(2 THEN 


tatches--t1 
Color=2 
Tone (3 
ELSE baskets==-1 

5ound(1,188,8,18) 
FOR azi TO 58 

po 

DeiayO 

0p 
5ound(1,8,8,8) 


ORANGES 


Plot tbalx, down} 
Poke (656,08) 
Poke (557,18) 
Print¢ (catches) 
Poke (656, 1) 


Poke (657,18) 
Print (baskets) 


Ballstart a 
RETURN 


PROC Startgame() 
BYTE flasher-7ii 
baskets-i 
catches-8 
Put (125) 

Poke (656, 1) 
Poke (657,25) 
Print("PRESS fire") 
Poket656,83 
Poke (657,26) 
Print CEEE?) 
Sound (8,258,18,18) 
Soundt1,252,18,18) 
WHILE 5trigt8)-1 
bo 
Delay 
flasher==+1 
Belay) 
op 
Sound(8,8,8,8) 
Sound(1,8,8,8) 
flasher-78 
plate-i9 
Putt(125) 
Poke (656,8) 
Poke (657,2) 
Print("CATCHES 8") 
Poke (656, 1) 
Poke (657,2) 
Print("baskets 3") 
Poke (656,8) 
Poke (657, 38) 
Print COEN vi 
Printtthi) 
RETURN 


PROC Screensetup() 
CARD dlist-568 


Graphics(5) 
b=dlist 
Poket752,1) 
WHILE Peektb) O66 
po 
==+1 
op 
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Poketb,78) 
Poketbti,6) 
Poketbt4,6) 
Poke (b+5,5) 
Startgame (O 


RETURN 


PROC maint) 
hi-8 
pü 
Screensetup () 
Ballstart (3 
WHILE baskets?8 


s 
D 
I 


j 


pü 

PelayO 

If key 255 THEN Wait) FI 
Delay O 

St=5tick (8) 

IF st-left THEM LeftoneO 
ELSEIF st-right THEN RightoneO 
FI 

Color-8 

Plottbalx,balyJ 

a--ti 


IF adi THEN baly--41 a-8 FI 


Color-i 

Plottbalx,baly} 

IF baly-down THEN Catchcheck@) FI 
op 


This gets executed when the game 


; iS over (equivalent to the 


GÅMEOVER routine in BASIC) 


FOR a-i88 TO 288 STEP 18 


po 
5oundíi,a,18,18) 
FOR st-1 TO 48 

pao 

Delay O 

op 
op 
50und(1,258,12,18) 
FOR a-i TO 254 

po 

Delay (3 

op 


Sound(1,8,8,8) 
IF hitcatches THEM hi-catches FI 
OD ; infinite loop 

RETURN 


SWAP MEET 


AMAZON PARK 











Y— 


FORTH 


SCR * 2O 

OG ( scr# 21 ORANGES 2/7 I 

o1 

O2 : RIGHTONE O COLOR plate f DUP i 
03 — down PLOT 1 + DUP plate ! Z5 3 
04 IF 2 plate ' 75 down PLOT 79 
O5 down DRAWTO 2 COLOR 1 down PEOT 
06 3 down DRAWTO ELSE 2 COLOR 

O7 plate € 1 + down PLOT THEN ; 

o8 

OG : BALLSTART BEGIN 53770 CG 2 + 
OA DUP balx ' screenwidth « UNTIL 1 
OB baly ' š 

OC 

OD : CATCHCHECK O COLOR balx € 

OE plate @ - ABS 2 < IF catches € 1 
OF + catches ' 2 COLOR TONE ELSE 

10 baskets & 1 - baskets ! 1 100 8 
11 10 SOUND 50 1 DO LOOF 1 OO O 

2 SOUND THEN balx € down PLOT O 65 
13 6 C! 10 657 C! catches @ > 1 656 
14 C' 10 657 C! baskets e. 

15 BALLSTART : 

16 

17 711 CONSTANT flasher 

18 : STARTGAME 3 baskets ' o 

19 catches ' 125 EMIT 1 656 ' 25 
1A 657 ' ." PRESS fire " O 656 ! 

1B 26 657 ' ." oranges " O 250 10 
1C 10 SOUND 1 252 10 10 SOUND BEGIN 
1D DELAY flasher C8 1 + flasher C' 
1E O STRIG NOT UNTIL 00 O 0 

1F SOUND 1 O 0 0 SOUND == > 

A 

SCR * 21 

00 ( scr# 20 ORANGES 1/2 2) 

oi DX ( set to decimal mode ) 

02 ( define constants ) 

OS 11 CONSTANT left 

04 7 CONSTANT right 

05 39 CONSTANT down 

06 77 CONSTANT screenwi dth 

07 < initialize variables ) 

08 O VARIABLE a O VARIABLE bal» 
09 Q VARIABLE st O VARIABLE baly 
OA O VARIABLE b . O VARIABLE hi 

OR O VARIABLE plate 

OC O VARIABLE catches 

OD © VARIABLE baskets 

OE 

OF : DELAY 50 1 DO LOOP 5 

10 

11 : WAIT 255 764 C' 100 1 DO LOOF 
12 BEGIN 764 Ce 255 = NOT UNTIL 

13 255 764 C! 3 

14 

15 : TONE 1 81 10 10 SOUND 30 1 DO 
16 DELAY LOOP ! O o O SOUND ; 

17 

18 : LEFTONE O COLOR plate @ DUP 1 

19 + down PLOT 1 - DUP plate ! 2 < 

iA IF 78 plate ' 1 down PLOT 3 

1B down DRAWTO 2 COLOR 76 down PLOT 

1€ 79 down DRAWTO ELSE 2 COLOR 

1D plate R 1 - down PLOT THEN 5 

1E 

LE —-> 


SCR # 22 

OO ( scr* 22 ORANGES S/o: I 

01 70 flasner:C*' 39 plate ! 125 

O2 EMIT O 656 C! 2 657 C! 

OS ." CATCHES O " 1 656 C! 2 657 C! 
O4 ." baskets 3 " O 656 C! 30 657 
05 C! ." high " bi 9 . $ 

06 

07 : SCREENSETUP 5 GR. 560 @ b ! 

OB BEGIN b @ 1 + DUP b ! Ce 66 = 
oe UNTIL 70 b e C' 6b e 3 + C! 6 
Abeg +C! óbe5 + C' 

OB STARTGAME ; 

OC 

OD : ORANGES DX O hi ! BEGIN 

OE SCREENSETUP BALLSTART BEGIN 

OF DELAY 764 Ce 255 - NOT IF WAIT T 
10 HEN DELAY O STICK DUP left - IF 
11 LEFTONE THEN right - IF RIGHTONE 
12 THEN © COLOR balx @ baly € PLOT 
13 a&i + DUP a ! 1 > IF baly € I 
fq UU. bay to å N THEN’ 1 COLOR 

15 balx € baly @ PLOT baly # down = 
14 IF CATCHCHECK THEN baskets @ 0 
17 = UNTIL 200 100 DO 1 I 10 10 

18 SOUND 40 1 DO DELAY LOOP 10 

19 +LOOP 1 250 12 10 SOUND 254 1 DO 
SCR * 23 

OO ( scr# 23 empty block 1/1 ) 55 
O1 

02 

03 ' 

04 

o5 

06 

07 

o8 

ag 

OA 

OE 

OC 

OD 

OE 

OF 

10 

11 

12 

14 

16 

17 

18 

19 

14 DELAY LOOP 1 0 O O SGUND hi € 
1B catches @ < IF catches 8 hi ' 

1C THEN O UNTIL ; 

Lu 

1E 

iF 3S 


SWAP MEET 


AMAZON PARK 
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WALDEN'S C 


The normal way of testing a function's speed 
is to call it a given number of times and see how 
long it took. The problem with this approach is 
that same functions may take a few split seconds to 
execute, and others could take several minutes. In 
the program SPEFD.C, two functions are called 
repeatedly for a given nunber of seconds and then 
the results are compared. This way you know the 
computer will only be tied up for a given length of 
time, and you can easily test two different ways oí 
programming the same function, and campare the 
results. It operates on the more is better 
principal; the more repetitions you get, the faster 
your function is. Because the camputer does a lot 
of housekeeping chores while it's running your 
program, the results will vary slightly even when 
calling the same function. Å difference of less 
than 10 percent between the functions will probablv 
not be significant. 

SPEED.MAS is a similar program written in 
BASIC. For a lot of reasons (too many to explain 
in this article) the timing run is limited to 4 
seconds for each function. Because BASIC is slow 
to begin with, you will not be able to put in 
camplex functions and have it run in under 4 
seconds. This program is mainly for comparison Lo 
C. However, I did run it on a variety of BASIC's, 
and you may be interested in the results. Ihis 
benchmark calls a null function (all it docs is 
return). 

Atari BASIC - 267; BASIC XL - 4035/0714 
(normal/fast mode); BASIC XL with KA)  FASIGHP - 
550/876; BASIC XF - 349/603/972 
(norm) /extensions/fast); DET NIF C - 1,237; 
INC/65 - 4,877. 


1008 REM SPEED.BAS - TEST FUNCTION SPEE 
b 

110 GOTO 168:REM MAIN LOOP 

128 REM TESTI 

1308 RETURN "REN PLACE FUNCTION HERE, Å 
ND END WITH A RETURN 

148 REM TE5T2 

i58 RETURN :REM PLACE FUNCTION HERE, Å 
ND END WITH A RETURN 

160 REPi-8;REP2-B8 

i78 POKE 28,8:REM CLEAR SYSTEM CLOCK 
188 GOSUB 130 :REPL-REPL+1:IF CPEEK (28) 
(248) THEN 188:REM RUNS FOR 4 SECONDS 
i98 POKE 28,8:REM CLEAR SYSTEM CLOCK 
288 GOSUB 138:REP2-REP2*1:IF CPEEK (28) 
(248) THEN 288:REM RUNS FOR 4 SECONDS 
218 ? :? “TESTI = ";REP1;" repetitions 


228 
aa 
238 7 

240 IF (REPIPREP2) THEN 7 “TESTI is fa 
ster then TEST2." 

258 IF (REPZ?REPi) THEN ? "TEST2 is fa 
ster then TESTi." 

268 IF (REPZ-REP1) THEM ? "TESTZ and T 
ESTZ are the same" 


Wi 


:? "TEST2 


" REPZ;" repetitions 


FURTRADER FROM UK ATARI USERS GROUP 


5 OPEN #1,4,8,"K:" 
6 HK-5:CF-58:0F-188:RF-288:H-7:D-7:F-5 
:H-188:T-8 

7 ? "KH 

17 TRAP 18888:G0T0 7888 

25 GRAPHICS 8 

Zü POSITION 8,3:? "YOUR COMMANDS ARE : 
s 

48 ? :? 
58 ? :? 
68 ? :7 
LO) 

78 ? :? 
K. 

98 POSITION 8,14:? "COMMANDS AT TRADIN 
G POST ONLY :" 

138 ? :? "(5) SEE GOING EXCHANGE RATE. 
148 ? :? "(6) MAKE Å DEAL." 

158 POKE 764,255:POSITION 8,21:? “WHAT 
IS YOUR COMMAND ?":INPUT à 

178 IF INT(A) O à OR oC OR A)6 THEN 98 
28 

188 
185 


"(1) LOOK FOR TRADING POST." 
"<2) 60 TO BED." 
"(3) EAT/DRINK FOOD AND HATER. 


"(4) FOOD/HUNGER/REST/STORES C 


IF TO1 AND A)4 THEN 9040 

IF oh AND ERU-B THEN 9008 

198 ? "K" 

288 GOTO (hX*i888) 

19808 IF INTCCRNDC1I)X18)211))6 THEN 1588 


1818 T-1 

1828 POSITION 8,8;:? "CONGRATULATIONS . 
YOU HAVE FOUND ñ TRADING P 
05T.'*:7 

1825 A-INT(RND(I)X2)41 

1835 IF A-i THEM F-Fti:? "YOU ALSO MAN 
AGED TO REFILL YOUR STORE OF F 
ooo." 

1945 GET #1,¥:60T0 17 

i588 T-8:POSITION 8,11:? "BAD LUCK. YOU 
DID NOT MANAGE TO FIND ñ TRADING 
POST ANYWHERE ." 

1515 GET #1,¥:60T0 17 

2888 A-INT(RND(IQIX5) +1 

2005 IF àO1 THEM D-7 

2818 POSITION 8,18:? "NIGHT, MIGHT.DOM' 
T LET THE BUGS BITE." 

2811 GET #i,Y 

2817 IF A-i THEN POSITION 8,15:? "THE 

BED BUGS BIT AMD YOU DID NOT MANAGE TO 
GET ANY SLEEP (in 

2011: IF A=1 THEN POSITION 8,17:? ''':po 

SITION 18,5:7 " PF * PP PP OT gro 

R AA=1 TO 1888:MEHT AA 

2828 GOTO 17 

3008 IF FÓB THEN POSITION 8,11:? "You 
HAVE WOW TAKEN THE LOAD OFF ONE 

PACKHORSE .":H=<7 
1828 IF F-8 THEN POSITION 8,11:7 "BAD 
LUCK, THERE IS NO FOOD LEFT." 


3030 IF FOG THEN F-F-1:GET Hi,Y 

i848 GOTO 17 

4888 ? "FOOD / HUNGER / REST / STORES 
CK 

4818 POSITION 8,3:? “YOU HAVE ";MF;" H 
AGGIS FURS." l 

4030 ? :? "YOU HAVE ";CF;" COYOTE FURS 


4858 ? :? "YOU HAVE ";0F;" OCELOT FURS 


4878 ? :? “YOU HAVE ";RF;" RABBIT FHRS 


4088 POSITION 8,12:? “YOU CAM SURVIVE 
";b;" COMMANDS WITHOUT AMY FOQD." 

4100 ? :? "YOU HAVE ";F;" PACKHORSES O 
F FOOD AND WATER," 

4128 ? "YOU CAM SURVIVE ";D;" COMMANDS 
WITHOUT ANY REST." 

4125 POSITION 8,21:? "YOU WOM HAVE An: 


H 

4138 GET #1,Y 

4148 GOTO 17 

9888 IF ERU-1 THEN 5848 

5885 HFP-INT(RND(11348) 161 

9818 CFP-INT(RHD (1)X38) t 11 

5828 UFP-INT(RMD(1)*28)*11 

5030 RFP-IMNT(RMD(1)3*18)*1 

5848 POSITION 8,1:? “EXCHANGE RATE :" 
9858 POSITION 8,4:7? "HAGGIS FUR = &";H 
FP 

9868 POSITION 8,8:? “COYOTE FUR = &";C 
FP 

9878 POSITION 8,12:? "OCELOT FUR = &'; 
OFP 

588808 POSITION 8,16:? "RABBIT FUR = An: 
RFP 

5898 GET H1,Y 

9895 ERU-1 

9188 GOTO 17 

5088 POSITION 8,4:? "YOU HAVE '";HF;" 


HAGGIS FURS" 

6818 POSITION 8,8:? “YOU HAVE ";CF;" 
COYOTE FURS" 

5078 POSITION 8,12:? “YOU HAVE ":0F;" 
OCELOT FURS" 

6838 POSITION 8,16:? "YOU HAVE ";RF;" 
RABBIT FURS" 

6835 POSITION 8,8:? “YOU NOM HAVE A TO 

TAL OF &";M 

5848 POSITION 8,28:? "HOM MANY HAGGIS 

FURS MILL YOU SELL ?" 

6845 IF HF(-8 THEM 6898 

6058 INPUT HK: X-INT CH} 

5868 IF KJHFORKÉG THEM 6858 

6070 H-M*(HNXHFP):POSITIOM 25,8:? M;" 

aa 

5888 

6885 

6898 


HF-HF-K 
POSITION 3,4:? HF;" " 
POSITION 2,28:? “COYOTE FURS" 
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6895 
6188 
6118 
0128 
aa 
6138 
6135 
6148 
6145 
6158 
6153 
6168 
6178 
6175 
6188 
6185 
6198 
6195 
6208 
a 
6218 
6215 
6228 
You 
6225 
6238 
6248 
6258 
DI 
6268 
6278 
6275 
0288 
6238 
6308 
6318 
6320 
6325 
63308 
6348 
6358 
5368 
6378 
6375 
6380 
6390 
6488 
DI 
6418 
6415 
7888 
7828 
7838 
7848 
7858 
7878 
7858 
7118 
7138 


IF CF(-8 THEM 6148 

INPUT 4: X-INT CH) 

IF MYCFORKSB THEM 6100 

M-M* CHACFP) :POSITIOM 25,8:7 M;" 


CF-CF-x 

POSITION 3,8:? CF;" " 

POSITION 3,28;:? "OCELOT FURS" 
IF OF{=@ THEN 6188 

INPUT HS X-INT CH) 

IF M»OFORK(B8 THEN 6158 

HIH CHXOFP) ; POSITION 25,8:? M;" 


OF=0F-X 

POSITION 9,12:? QF;" " 
POSITION 9,28:? "RABBIT FURS" 
IF RF(-8 THEN 6228 

INPUT X:X-INT(X) 

IF K>RFORKX8 THEN 6190 

MM CEXRFP) : POSITION 25,0;? M;" 


RF=RF-X 
POSITION 3,16:? RF;" " 

POSITION 9,28:? "HAGGIS FURS WILL 
BUY ?" 

IF (M(HFP) THEM 6278 

INPUT X:X-INTOD 

IF (WXHFPI)MORK(8 THEN 6238 
M=M-CHEHFP) : POSITION 25,0:? Mj" 


HF-HFtX: POSITION 9,4:7 HF;" " 
POSITION 23,28:? “COYOTE FURS" 
IF (MÁCFP) THEM 6328 

INPUT H:H-INT CK) 

IF CHECFP)>MORK<@ THEN 6288 
KR CHRCFP) POSITION 25,8:? M;" 


CF=CF+X:POSITIOM 9,8:? CF;" " 
POSITION 2,28:? “OCELOT FURS" 
IF (MÁO0FP) THEN 6378 

INPUT K:X-INT CH) 

IF (KHOFPJ)MORKSB THEN 6318 
H-H- CHXOFP3 : POSITION 25,8;? Nj” 


OF-OF tH: PQSITION 3,12:? OF;" " 
POSITION 9,20:? "RABBIT FURS" 
IF (MSRFP) THEM 6428 

INPUT Ks H-IWT CH) 

IF CHERFP)>MORK<@ THEN 6388 
M-A-CHERFP) :POSITIOM 25,8:? M;" 


RFIRF+K:POSITIOM 9,16:7 RF;" " 
T-8;:ERU-B;G0TO 17 

? "&'";p-Dp-1;H-H-1 

IF H(8 THEM 8828 

IF DEG THEN 8888 

IF INT(RND(CI)X125)25 THEN 7288 
HF-HF-INT(RMHDCL)X CHF/2)3 
CF-CF-INT (RMD CIOX(CCF/22) 
OF-OF-INTIRND (12 COF/22) 
RF-RF-INT CRND CLOX (RF/2)) 
POSITION 8,23:? “SOME ROBBERS JUST 





ST LIBRARY 


We have some additions to our ST Library: 3 new Basic programs: 
Calc.bas, Labels.bas and Title.bas. The Calc program is a 4-function 
calculator. 

One new ST Writer application: STWCON.TOS and XYZZX.TXT. 
This program purports to be able to configure ST Writer for whichever 
printer you may desire to use. 

Two new sound files: Newsin.prg (draws sine waves and makes 
sound at the same time — demo), and Evita.sng (to be used with the 
MIDIDEMO.PRG — you also need a synthesizer!) 

One new ST Paint program: Degasneo.prg. This one will translate 
picture files drawn with DEGAS into a format usable by ST Paint. 

One game: MEGAROIDS (Megaroid.prg and Megaroid.rsc). This is 
an implementation of the classic Asteroids game written in MegaMax 
C. It's a good advertizement for the MegaMax product. 

MORE RUMORS: Atari has sold 90,000 STs. The ST is the best- 
selling computer in France and Germany. The Atari ST is outselling 
Macintosh 6:1 and C-Amiga 30:1. Is multitasking important to you? The 
Atari ST hardware supports multitasking as well as any 68k system. 
OS/9-68k is being ported over. Atari is working on a multitasking OS. 
DRI is shippiing to OEMs its Concurrent DOS 68k. 

The Atari ST is expandable to 256 megabytes of RAM through its 
DMA port (SASI compatible). Is this expandable enough for you? 

Les Ellingham, of Page 6 in the United Kingdom, says their version 
of GEMDOS "has a bug which prevents opening folders with 8-letter 
file names.'' l'm surprised. Come on, Atari, let's get that TOS on ROMs! 

PC Inter/Comm (Mark of the Unicorn, $99 discounted) is a great 
telecommunications program. It's as good, if not better, than anything 
I've seen for the IBM PC. In fact, I believe it was ported over from the 
IBM PC version. It's entirely menu-driven from the keyboard, or you can 
bypass many menu selections directly with commands as you learn 
them. 

There are probably more than 100 commands and options and 
parameters you may select while using this program. The best features 
of this program include the ability to set up configuration files for any 
system you may call. Just load in a pre-configured set up and press Alt- 
D RETURN and the phone dials away. A version of the Xmodem protocol 
is available which uses cyclical redundancy checking. It will also use 
the Kermit protocol, as well as ''Raw'' and "ASCII". 

One really marvelous feature is demonstrated by the way in which 
I now transmit the ACE Newsletter file to the typesetter. | go to bed 
one night after having run up PC Inter/Comm and loading in my 
'Callup.ic'' file. I type Alt-T RETURN and go to sleep. At 2.30 am, the 
Atari ST takes the phone off-hook (oh yes, I had to turn on the modem, 
too), dials the number. Any log-on procedure is completed (which may 
include the exchange of passwords), the file is uploaded (a file may be 
downloaded instead, or in addition?). When finished, the logoff protocol 
is executed, the phone put back on hook, and the Atari ST goes back 
to sleep! What do you think of that? Two Atari STs, running this same 
software could each perform these tasks without a human at either end! 
As you can tell, I'm really bowled over by this feature. 

If you're on a BBS and you're reading messages or bulletins, 
sometimes you might say to yourself, “I wish I had my buffer open. 
I wanted to save that!'' This program puts the history of your terminal 
session into a buffer. You can page backwards through this history, even 
if it's been scrolled off the page. You can edit and save parts of the 
history. 

The program emulates å DEC VT102 terminal. The F1-F4 keys 
function just like the VT 102 unless you define new values to them. You 
may also assign values to F5-F10 and Shift F1-Shift F-10. Some words 
or phrases you use alot? Just assign them to a function key. Passwords, 
names, city and state, etc. are my candidates. 

The manual includes about 130 pages, including an extensive table 
of contents. The material is well-indexed. The program is a bit spendy 
for most Atari users, probably. But if you can spring for the money, you 
won't regret it. One glaring defect: You are not able to read a disk 
directory from within the program(!?) | can't imagine how this feature 
was omitted. l've not yet seen a terminal program which didn't have 
this ability. I’m sure they will add this feature in the next update, and 
in fact l've heard they intend to do just that thing. The only other thing 
I can think of to add to this program is to permit the user to select colors 
for the screen, or perhaps to play some background music while the 
program's running. Maybe it can be made to turn on the microwave and 
warm up a snack. ... 

InSoft Newsletter (1834 Beacon St., #1, Brookline, MA 02146 
617-739-9012. $45/6 issues; $70/12 issues) is a newsletter on disk 
devoted entirely to the Atari ST. The November, 1985 issue has 19 files 
including executable programs, source code files and document files for 
each program. They have news, editorials, reviews and rumors. For less 
than $6 an issue you get a disk as well as all the goodies. I’m unclear, 
but there might be a paper newsletter included. Check this one out. Its 
future has possibilities. | 

— Jim Bumpas 
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STuff 


Neil Harris spoke to a user group back east on October 13 with some 
interesting items. He says Atari has a 3.5'' drive which works with the 
XE machines. Atari is considering the feasibility of changing over to this 
new drive for the 8-bit line. The AMY chip for the XEM has been licensed 
to a third party to complete development. Atari retains the right to use 
the final chip in any product they choose. 

Two expansion boxes for the ST he says might appear in 1986. One 
is an eight slot box which plugs into the DMA port. Extra memory and 
other goodies can make use of this item! The other is a full 32-bit 
computer in a box to plug into the ST. It will only add crunching power. 
The graphics, I/O, etc. will still be handled by the ST. Harris finished 
off by saying Atari has some advanced technology in their labs right 
now which will knock your socks off. He says it can be ready for market 
in a hurry, too, pointing to how fast the XE and ST lines got to market. 

Next year should be very exciting for the Atari world. Can we stand 
it after all the excitement of 1985? 

The C-Amiga was at our November meeting. I invited a local 
Commodore dealer to demonstrate the machine because of the wide- 
spread interest in this machine among Atarians. | must say the graphics 
capability of the development system they used was very impressive. 
I don't know why they didn't bring a production machine. I haven't seen 
anything on the Atari ST yet to match the best of what they showed. 
I do think our Atari Waterfall is better than the waterfall they showed. 

But they showed an animated scene called ''Robocity'" with 5 
independent objects moving around on the screen at once. Another 
animation was the eagle flying across the screen, making eagle noises. 
Most of the graphics demos were in low resolution (320x200). The 2 
or 3 high-res demos did have a noticeable flicker at 640x400 interlaced 
mode, but the detail was very impressive. They did not show two of 
these high-res pictures in a row. They seemed to have to re-boot after 
each one. 

One demo was a speech synthesis of 3 or 4 words which required 
the entire memory of the C-Amiga to produce. The sample rate must 
have been very high because the sound was almost audio quality! 

They didn't demonstrate any applications software. They only had 
graphics and a couple of games which were not finished from Electronic 
Arts (Firefox and Arctic Fox — similar games). Asked about business 
applications they said to use a C-Amiga in business is a waste of a great 
game machine. They called it a ‘‘super-Atari’’. In my opinion, the display 
of text characters is not as good as on my color ST system. And nothing 
on the market touches the Atari ST monochrome system for text display. 

The C-Amiga does not come with any software for you to use. You 
must buy it all extra. They don't have anything equivalent to the free 
ST Writer, ST Paint, LOGO and BASIC which we get with our ST 
purchase. And the C-Amiga operating system does not have a terminal 
emulator to use for telecommunication. How much does a C-Amiga 
cost? $1295 for the 256k console and 1-meg drive; $199 for the 
upgrade to 512k; $495 for the RGB monitor. $1,989.00 including no 
software. | don't think the machine has a market niche at that price. 
They're selling it as a game machine, but pricing it in the business range. 
I'm using my Atari ST in business, and waiting for some great games 
to play! 

ST-SIG: We have 15 ST users in our local special interest group 
here in Eugene. About % of the group bought the ST as their FIRST 
computer! If this trend is general, then Sam Tramiel is correct that this 
machine will revitalize the pc market. About ” of us are using the 
machine primarily or exclusively in business. 

SPECIAL OFFER: If you share an ST program which you've written 
and you find useful and/or amusing share it with the rest of us. If you 
send it on a disk with a little article describing it, we'll return you a disk 
with your choice of material from our ST public domain library. 

Here's a little task which might set you to work: Find a way to 
access the Time and Date functions which the OS keeps track of from 
within ST Basic. The first one to come up with the answer to this problem 
will receive in trade for executable code on a disk a copy of one of our 
public domain disks. 


ST 5.25” DRIVES 


I own and love my 520 ST. I found an easier way to hook up a 5.25” 
drive to it. Open the 3.5'' drive and very very gently remove the ribbon 
cable and connectors. Replace the ribbon cable with a 4 or 5 foot long 
one using the original connectors. As Dave Small showed in November 
Antic, find pin 6 of the incoming plug. Make a jumper to wire 12 of the 
robbon cable past the connection to the 3.5” drive. Set up the 5.25” 
drive as Dave Small indicated with a 34 pin crimp-on edge connector 
($4.95 at Radio Shack). Oddly, Radio Shack no longer carries 34 wire 
ribbon cable. 

Dave Small was not quite correct in saying you can not format a 
40 track drive. | hooked up an MPI52 40 track double sided drive, cutting 
one trace as Gary Sewell of Dallas ACE had told me. When you format 
a 40 track drive, the 40th track is formatted 41 times and the ST will 
think it can put 720k on the disk. As long as you don't try to put more 
than 340k (39 tracks worth) on the disk, no problem is found writing 
to the disk! 

— W. M. Frank 


TOKEN BASIC 


(by Les by Gum; reprint: P. A.C.E. World, June, 1985) 

One of the mystery words which keeps cropping up in Atari talk is 
TOKENISATION. This is a subject which is never explained. Yet it is very 
important to Basic. The reason it isn't discussed is because you don't 
really need to understand it. (What is this man talking about? | hear you 
say.) 

Well, tokenize is just the way the computer stores your program. 
If you were to type a line such as: 

TO FOR-L«1 FE 

The line is not stored exactly like that. If you could look at this line 
in the computer memory you would not recognize it. It is complete 
gobble-de-gook. 

How can you look at the program in memory? Well, the actual 
address where it is stored on an 8-bit Atari can be found using the 
following: 

d PEEK(136)+ 2b6*PEEK(137. 

Type this and press Return. The number given is the start address 
of your program. 

Tokenisation is a matter of substituting codes for words. ... 

The Atari takes key words such as FOR, NEXT, GOTO, etc. and puts 


a number in memory in place of them. When you print a LIST on screen, | 


the Atari looks at the code numbers and puts the correct word in place 
on the screen. 

The word FOR appears in memory as the number 8, while NEXT 
is number 9. 

Now type NEW and Return. Type in the following program: 

10 C=0 

20 D=PEEK(136) + 256*PEEK(137):T =O 

30 OFFSET =PEEK(S +C + 2):F=0 

40 ? PEEK(S +C);” "SF-E*T 

50 IF F= OFFSET THEN 70 

60 C=C+1:GOTO 40 

70 T=T+10:IF T= 100 THEN END 

BO POKE 764,255:? :? "PRESS KEY” 

90 IF PEEK(764) = 255 THEN 90 

100 7:2 :C=C+1:GOTO 30 

If you run this program it will print the program one line at a time 
showing you what the line looks like in storage. 

To print each successive line, press Return. 

The line numbers are stored in two bytes. The first is the LOW byte 
of the number, the second is the HIGH byte. Number 10 is simply 10 
and O. A large line number like 18440 is first divided y 256 to get the 
HIGH byte. The remainder is the LOW byte: 

18440/256 = 72.03125, so 72 is HIGH. 

72*256= 18432, so 18440-18432 =8. 8 is the remainder and is 
also the LOW byte. 

Try this the other way around. If you see the number 8 in the 1st 
byte and 72 in the 2d byte then multiply 72* 256 and add 8. The answer 
is 18440. 

The third byte of the line gives the total number of bytes in that line. 
this total includes the 2 bytes of the line number. The number will be 
15. Count the bytes on the screen. From byte one (10) to the last byte 
(22)'is 15: 

The fourth byte is the number of bytes in the first statement. This 
line only has one statement (C = 0), so the total is the same (15) as the 
previous byte. Where a line has more than one statement this fourth 
byte will be less than byte 3. 

The fifth byte in our example is the token for the word LET (54). 
If you actually put the word LET in the program this number will be 6. 
Confused? Worry not. It is for the sake of a Listing that there are 2 
numbers meaning LET. Number 6 will make the Atari print the word LET 
in the list. The number 54 means this is LET but don't print it out. 

Byte number 6 is the token for the variable ''C''. Everytime you enter 
a new variable it is given a number starting at 128. As C is the fist 
variable it has come across, it is tokenized as 128. The next different 
variable it finds will be given the number 129 and so on. 

Byte 7 is the token for “=” (equal sign). 

Byte 8 tells the computer a numeric constant follows. 

The next 6 bytes (9 to 14) are reserved for the value of the numeric 
constant. So each time you create a new variable you lose 6 bytes which 
saves the value you assign to it. You also use some extra memory storing 
the variable name. : 

Byte 15 is the last byte of this line and the number 22 tells Atari 
"that's the lot”. 

Press Return to display line 20 of the program. Line 20 has two 
statements in it. 
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Byte 3 is the total bytes in the entire line. 

Byte 4 is 37 which means there are 37 bytes in the first statement. 
If you count 37 bytes from the start you will see the number 20 which 
shows the end of the first statement, this being the token for colon (:). 

In the second statement in this line the first byte (byte 38) is the 
total count of bytes from start to end. You will see it is the same as 
byte 3. 

After each statement terminator (token 20) the Atari expects a 
count of the number of bytes so far plus how many are in the next 
statement. If this number matches byte 3 then it knows this is the last 
statement on the line. 

With all these constant checks is it any wonder we keep getting 
error messages? Still it's a good idea. It does help to make you get it 
right before running. As far as possible anyway. 

Now that you have learned all this about tokenization, what use will 
you put it to? | don't know any use for it either. but it's all good fun. 
get in there and Poke a few random numbers into memory. See what 
Atari makes of that! Hah! Bet it can't make head nor tail of it. 


KARATEKA 


by Jordan Mechner, Broderbund software 

KARATEKA is a super animated game. I am not a karate expert by 
any means but this game is easy to play and hard to win (that is to rescue 
the maiden in distress). 

The objective is to rescue "MARIKO"' the maiden To be able to do 
this you have to fight all kinds of warriors differently skilled in different 
karate levels one at the time till in the end you have to fight the master, 
before you can open the door to rescue her. 

The one thing | personally did not find too easy was that the control 
with the stock atari joysticks was inconsistent at best, but not to fret 
there is also a keyboard option for control of your fighter which I had 
a lot more control with, and used throughout my endeavor with the 
game. 

Technically I think the game is superior to most games | have seen 
of late. The movie-like story seems well thoughtout. The characters 
move very smoothly, which gives the impression of a lifelike scenario. 

The backgrounds scroll with your movements, to give a realistic 
effect. The fighting stances seem like the real thing (I dont know karate). 
So if you are into animation or Karate or both I highly reccomend 


Karateka. It really is fun. 
— ROBERT COOK 
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QUICK PRINT 


Word processors are marvelous, but they have their limitations — 
especially for doing simple jobs. Suppose you want to address an 
envelope. In most cases it is easier to use a typewriter than a word 
processor. With AtariWriter you need to boot the program, set the 
margins, type the text, move to the print menu, set some of the printing 
parameters, and finally, print. For some word processors, the procedure 
is even more complicated. You may have to create a text file, save it 
to disk and then set up the print parameters before printing. 

QUICK PRINT is written for those small printing jobs such as 
addressing an envelope or writing a memo. It allows you to use your 
computer and printer like an electronic typewriter. The main difference 
is that Quick Print processes one line at a time rather than just one 
character. 

Turn on your printer before you run Quick Print. When you 
successfully run Quick Print, you will be prompted for the left and right 
margins. Type the left margin, comma, the right margin, and RETURN. 
Quick Print will accept numbers between 1 and 80 as legitimate input. 
Error trapping should take care of any goofs or slips of the fingers. With 
proper input you will see a colored line on the screen with the cursor 
at the beginning of the line. The length of the line will equal the difference 
between your right and left margins. If the length of your line is more 
than 40 characters, the colored line will be more than one screen line 
(assuming a 40-column screen). As vou type, the position indicator will 
display the cursor position along the line. If you type beyond the length 
of the colored line, you will go outside your margins. A warning bell will 
sound when you are five characters from the end of your line and you 
will need to press the Option key to release the margin if you wish to 
add a few characters beyond the length of the line. If you want to reset 
the margins, press Select. 

Suppose you want to address an envelope. Set the left margin at 
about 40 and the right margin at about 75. Then you will see a colored 
line on the screen which is 35 characters long. Position the envelope 
in the printer, and type the name. You may edit the name using the 
screen editor before hitting Return, but when you hit Return, the name 
will print and a new colored line will appear on the screen for the first 
line of the address. And so on. By pressing Option, you may type a few 
characters beyond the colored line without ill effects. It is similar to 
hitting the margin release on a regular typewriter. But if you enter too 
many characters beyond the margin your printer may break your line 
at the wrong place. 

In the BASIC program listed, a vertical blank interrupt (VBI) is used 
to update the cursor position, to ring the warning bell and to determine 
when Option and Select are pressed. Subroutine 9000 POKEs the 
vertical blank interrupt into memory. The assembly language subroutine 
developed with MAC/65 is shown separately. It is for your information 
only as all the necessary DATA statements are included in the BASIC 
listing. Since this subroutine is longer than can fit into page six, | put 
it in page 80 which is reserved for the right-hand cartridge in the 800 
and is unused in the XL series. ! do not know about the XE series. 

A display list interrupt in subroutine 6000 changes the colors at 
screen line 4. Subroutine 3000 is used to setup the margins. Subroutine 
4000 opens the keyboard for input on channel £1 (with screen output) 
and opens the printer for output on channel #2. Subroutine 5000 
redefines the character set to create the colored line. Lines 501 0-5070 
include a machine language subroutine to relocate the normal character 
set in RAM where it may then be modified. Lines 5080-5100 redefine 
the graphic "heart to be the character for the colored line. The color 
was created in Graphics O by using color artifacting — that is, every 
other pixel was turned on. See you local popular books and magazines 
for articles on interrupts, character set redefinition and color artifacting. 

The main loop of the program is lines 210-260. In line 210 the cursor 
position is defined so the cursor will be returned to the beginning of the 
colored line after the colored line is printed. The print statment in line 
220 is needed to reposition the cursor so you can see where you are. 
Line 212 is needed to insure the cursor is positioned on the colored line 
when the text extends to the bottom of the screen. 

The trickiest part of this program is synchronizing the timing of the 
vertical blank interrupt and the BASIC program. Line 225 is needed to 
insure that the bell does not ring at the wrong time and the ''keyboard 
disable’’ used as the margin stop does not engage at the wrong time. 
Line 240 is needed to empty the buffer when Select is pressed so the 
printer does not print unwanted text. 

Be careful if you type control characters because they may lock up 
your printer. If this occurs, just turn off the printer and turn it on again. 
As an added feature, you may use the control characters to enhance 
your text. For example, on my Axiom AT-100, Control-N will turn on 
the expanded text mode and Control-O wil turn it off. Also be careful 
not to move the cursor off the line you are typing or funny things might 
happen. Quick Print does not recognize special characters such as Tab 
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unless your printer can interpret them properly. 
I hope you find Quick Print as useful as | have. 
— Gerry Wick 


BRIMSTONE and ESSEX 


(for the 800/130 XE) 

Synapse describes these games as "electronic novels''. They are 
very extensive text adventure games requiring 2 disk drives as well as 
48K machines. The player/reader is required to read a book describing 
the background and introducing the characters in a fantasy plot. From 
there, you boot the disks following the prompts and begin. The all text 
play is similar to Infocom games with one big exception: with 2 disks 
crammed with huge data files to access, there are many more options. 
For example, playing ESSEX one evening | experimented at one point 
making 8 different responses at the same point in the game and found 
8 different complete turns of the plot unfoldment. In a sense the 
player/reader creates the plot by what he or she chooses to input. 

BRIMSTONE is a knights of the Round Table fantasy with castles, 
legends, damsels in distress etc. | find it relatively hard to get started, 
but once into it, the game moves along at an interesting clip with several 
surprises. It is far from predictable. 

ESSEX is a space adventure/fantasy with many climactic moments. 
| find it harder to play than BRIMSTONE, but this could be because | 
make all the wrong decisions. The story is not, in my view on par with 
the best of INFOCOM games although it is keeping my interest. 

My main criticism of these games and the concept is the relatively 
slow disk access. I frequently tire of the long waits. Perhaps I have been 
spoiled by the speed of the ST. 

— Graham Smith 


THE "ST" CONNECTION 


Programs for the ST are gradually becoming more plentiful. A few 
of the new programs and the final edition of ST BASIC are worth a few 
remarks. However, this is by no means an in-depth review. 

Hex, a strategy game from Mark of the Unicorn, is a very fine game 
— once you get into it far enough to understand the sometimes subtle 
play. It is sort of a cross between CHESS and ARCHON with a little of 
Q*BERT thrown in. It is hard to describe since there is really nothing 
else like it. The object is for you to turn the board surface green by 
jumping on the hexes making up the surface. This is complicated by your 
computer opponent who meanwhile is trying to turn the surface purple. 
Altogether, there are 12 different opponents of varying skills and magical 
powers trying to undo you in 125 different levels. It is all very cleverly 
done and has great staying power and wonderful graphics. 

Ultima Il on the ST is wonderful. The GEM interface makes play very 
simple and straight forward. Best of all, the frequent disk UO is lightning 
fast. The GEM is perfect for this kind of application. ! love it!!! 

The new ST BASIC is very powerful, and, if you can get used to 
hand-picking your way through all of the windows and the relatively slow 
speed, this adaptation of the language works. However, In playing with 
it one weekend, | am convinced that it is not for me. Atari's 
implimentation of the GEM Desktop in BASIC ST gets in my way. 
Supposedly Philon's Basic M is now being shipped so it will be interesting 
to compare the two basics although rumor has it that Basic M does not 
have graphic capabilities. 

I have also been impressed with SHICED: a shape and icon Editor 
designed specifically for the ST and made by Monarch Development of 
Salem. This product is a very high quality and thorough product. With 
it you can design your own Icons for the desktop, design multi-color 
shapes, and even do some animation. Best of all, you can save your 
work in a variety of different source codes including ''C'' and Assembler. 
With the number of examples included on the disk you can learn how 
to interface your files in your programs. 

— Graham Smith 
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AMAZON PARK 


Atari Computer Enthusiasts 
A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to Atari Corp. We are a group 
interested in educating our members in the use of the Atari Computer 
and in giving the latest News, Reviews and Rumors. 
All our articles, reviews and programs come from you, our members. 
Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Airmail 
and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 
**President— Dick Barkley, 2907 Wingate, Eugene, OR 97405 
503-344-5843 
Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 
503-686-1490 
8-bit Librarian — Chuck & Jody Ross, 2222 lronwood, Eugene 97401 
(503) 342-4133 
ST Librarian— Jim Bumpas, 4405 Dillard Rd., Eugene OR 97405 
503-484-4746 
Editors — Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 
503-344-6193 
Jim Bumpas, 4405 Dillard Rd., Eugene, OR 97405 
503-484-4746 
E.R.A.C.E. (Education SIG Editor) — Nora Young, 105 Hansen Lane, 
Eugene, OR 97404 / 503-688-1458 
Send 50c stamps or coin ($1 overseas) to the Ness' for the new, 
updated ACE Library List —new in May 85! 
Bulletin Board 
(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists 
of an 800 XL, 2 double-density double sided disk drives and 2 double- 
sided, double-density, 80-track disk drives, an Epson MX80 printer, a 
1200 baud Prentice P212ST modem, running the Mindlink Bulletin Board 
software distributed by SofMark. 
Best of ACE books 
Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 
Volume 2 covers July 1982 to June 1983 
Only $12 each ($2 extra for Airmail). Available only from: 
George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 
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IYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you. have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes "on line’ 
And it's easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 
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saking & Design Services 


30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


SortFinder Index 
A composite index of Atari related articles in four popular computer 
periodicals, including ACE. Volume 1covers April, 1981 to June, 1983. 
Volume 2 covers July, 1983 to December, 1985. Only $6 per printed copy 
or $11 per disk copy for ACE members: 
Jim Carr 2660 SW. DeArmond 
Corvallis, OR 97333 





